% V20210224 - 7.6 GW_NEW_CLASS

INCLUDE "GW.bas"

p = GW_NEW_PAGE()                      % Create new page.

GW_NEW_CLASS("flash")                  % Create a new class of controls
                                       %  named 'flash'.
GW_USE_THEME_CUSTO_ONCE("class=flash") % Activate a one time customization.
GW_ADD_BUTTON(p, "BUTTON", "button")   % This control has the class 'flash'.

GW_RENDER(p)                           % Show the page.

DO
 r$ = GW_WAIT_ACTION$()                % Wait for user action.

 % Place here any necessary code to process user actions.

 POPUP r$                              % Example feedback.

UNTIL r$ = "BACK"                      % End when BACK key is pressed.

END "End of GW_NEW_CLASS example."